#!/usr/bin/perl -ws
while (defined ($line = <>)) {
	if ($line =~ /coll bif=/) {
		$epos = index ($line, "=");
		$file = substr ($line, $epos + 1);
		print "file=$file\n";
		$wpos = index ($file, "workinprogress");
		$dpos = index ($file, "/", $wpos);
		$dfile = substr ($file, $dpos + 1);
		print "dfile=$dfile\n";
		$ppos = index ($dfile, ".");
		$dtime = substr ($dfile, 0, $ppos);
		print "dtime=$dtime\n";
		&get_time("dirtime", $dtime);
		$slpos = index ($dfile, "/");
		$slpos = index ($dfile, "/", $slpos + 1);
		$rfile = substr ($dfile, $slpos + 1);
		print "rfile=$rfile\n";
		$upos = index ($rfile, "_");
		$rtime = substr ($rfile, 0, $upos);
		print "rtime=$rtime\n";
		&get_time("ftime", $rtime);
	}
}
exit 0;
sub get_time {
my ($label, $time) = @_;
		($secs, $min, $hrs, $mdays, $month, $year, $wdays, $ydays,
		 $daylight) = localtime($time / 1000);
		if ($year > 100) {
			$year -= 100;
			$year += 2000;
		}
		$month++;
		print "$label=$month/$mdays/$year $hrs:$min:$secs\n";
}

